home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAPStart.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  674 b   |  25 lines
  1. on CheckDrive weirdfile
  2.   if the machineType = 256 then
  3.     repeat with i = 90 down to 66
  4.       set drive to numToChar(i)
  5.       set thisPath to string(drive & ":\" & weirdfile)
  6.       if FileExists(thisPath) = 0 then
  7.         return drive & ":"
  8.         exit
  9.       end if
  10.     end repeat
  11.     alert("You must insert the HRW_IMAP CD-ROM to run this program.")
  12.   else
  13.     set drives to DrivesToList()
  14.     repeat with drive in drives
  15.       set thisPath to string(drive & ":" & weirdfile)
  16.       if FileExists(thisPath) = 0 then
  17.         return drive
  18.         exit
  19.       end if
  20.     end repeat
  21.     alert("You must insert the HRW IMaps CD-ROM to run this program.")
  22.   end if
  23.   quit()
  24. end
  25.